home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpC_1007_EditNum < prev    next >
Encoding:
Text File  |  1992-04-08  |  1020 b   |  44 lines
  1. %case window field%
  2.     TEHandle        %HandleName%;
  3. %case create%
  4.     SetWFont (%itemname%);
  5.     GetWRect (%itemname%, &bounds);
  6.     cur->%HandleName% = TENew (&bounds, &bounds);
  7.     TESetJust (textJust, cur->%HandleName%);
  8.     TEAutoView (true, cur->%HandleName%);
  9.     %if firstEdit = %
  10.         %set firstEdit = handleName%
  11.     %endif%
  12. %case dispose%
  13.     TEDispose (cur->%HandleName%);
  14. %case mousein%
  15.     if (PtInRect (where, &(**(cur->%HandleName%)).viewRect)) {
  16.         if (cur->text != nil) {
  17.             TEDeactivate (cur->text);
  18.         }
  19.         cur->text = cur->%HandleName%;
  20.         TEActivate (cur->text);
  21.         TEClick (where, false, cur->text);
  22.     }
  23. %case update%
  24.     TEUpdate (&qd.thePort->portRect, cur->%HandleName%);
  25. %case itemNr%
  26.     %DefineItem%
  27. %case dialog field%
  28.     long            %fieldname%;
  29.     %haveField%
  30. %case init field%
  31.     info->%fieldname% = 0;
  32. %case set%
  33.     SetDNum (%itemname%, info->%fieldname%);
  34. %case hit%
  35.     %if not disabled%
  36.         case %itemname%:
  37.                 GetDNum (itemNr, &info->%fieldname%);
  38.             break;
  39.     %endif%
  40. %case finish%
  41.     %if disabled%
  42.         GetDNum (%itemname%, &info->%fieldname%);
  43.     %endif%
  44.